home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dd1a / dragdrop.frm < prev    next >
Text File  |  1995-05-08  |  2KB  |  58 lines
  1. VERSION 2.00
  2. Begin Form DragDropForm 
  3.    Caption         =   "Drag 'n Drop"
  4.    ClientHeight    =   3660
  5.    ClientLeft      =   2340
  6.    ClientTop       =   2775
  7.    ClientWidth     =   6120
  8.    Height          =   4065
  9.    Left            =   2280
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3660
  13.    ScaleWidth      =   6120
  14.    Top             =   2430
  15.    Width           =   6240
  16.    Begin ListBox List1 
  17.       Height          =   1590
  18.       Left            =   240
  19.       TabIndex        =   2
  20.       Top             =   840
  21.       Width           =   5175
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "End"
  25.       Height          =   375
  26.       Left            =   5040
  27.       TabIndex        =   0
  28.       Top             =   240
  29.       Width           =   975
  30.    End
  31.    Begin Label Label1 
  32.       Caption         =   "Drag one or more files from File Manager onto this form or onto its minimized icon. See DDGLOBAL.BAS for API declares, and the Main () routine in DRAGDROP.BAS for the drag/drop code. Paul Bonner @  CIS: 76000,13"
  33.       Height          =   855
  34.       Left            =   240
  35.       TabIndex        =   3
  36.       Top             =   2640
  37.       Width           =   5415
  38.    End
  39.    Begin Label Label2 
  40.       Height          =   375
  41.       Left            =   360
  42.       TabIndex        =   1
  43.       Top             =   240
  44.       Width           =   4455
  45.    End
  46. End
  47. DefInt A-Z
  48. 'All the important code is in the Main() routine in DRAGDROP.BAS
  49. 'Paul Bonner  76000,13
  50.  
  51.  
  52.  
  53.  
  54. Sub Command1_Click ()
  55. End
  56. End Sub
  57.  
  58.